Stuck...

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Stuck...

I tried the follwing but Im overlooking something with the syntax of the evaluate command. I guess Im burned out at this point of the day lol. Basically I'm trying to rename the existing file to .old and then I will build in another peice to copy the new file in and rename it to the orig filename. Can you spot what's preventing this from working?

Sub Click(Source As Button)
Dim s As New notessession
Dim Usr As String
Dim Pth As String
Dim Pth2 As String
Dim PthRN As String
Dim SameTFile As String
Dim SameTFileOld As String
Dim RName As String
Usr$ = s.CommonUserName
Pth$ = "C:\Program Files (x86)\lotus/notes\data\workspace\.metadata\.plugins/com.ibm.collaboration.realtime.login\CN="
Pth2$ = "_O=FirmName.xml"
PthRN$ = "_O=FirmName.old"
SameTFile$ = Pth$ + Usr$ + Pth2$
SameTFileOld$ = Pth$ + Usr$ + PthRN$
Evaluate(|Shell ("ren SameTFile$ SameTFileOld$", 1)|)
End Sub

Feedback response number WEBB9YGRBS created by ~Elizabeth Opfoobergetsi on 07/16/2015